home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00479.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  204 b   |  10 lines
  1. on light
  2.   global l, s
  3.   repeat with l = 1 to 26
  4.     puppetSprite(l + 17, 1)
  5.     set the foreColor of sprite (l + 17) to 217
  6.   end repeat
  7.   set the foreColor of sprite (s + 17) to 228
  8.   updateStage()
  9. end
  10.